home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / currency < prev    next >
Internet Message Format  |  1995-03-31  |  17KB
  1. Path: seq!spell
  2. From: Jeremy Smith <smithj@jacobs.CS.ORST.EDU>
  3. Subject:  REPOST: v01i037:  Currency converter v1.0, Part01/01
  4. Newsgroups: comp.sources.hp48
  5. Followup-To: comp.sys.hp48
  6. Approved: spell@seq.uncwil.edu
  7.  
  8. Checksum:  199607170 (verify with brik -cv)
  9. Submitted-by: Jeremy Smith <smithj@jacobs.CS.ORST.EDU>
  10. Posting-number: Volume 1, Issue 37
  11. Archive-name: currency/part01
  12.  
  13. BEGIN_DOC currency.doc
  14.  
  15.                  HP 48 Currency Converter Key Assignment
  16.  
  17.        This key assignment allows conversion between the currencies of 52
  18. countries.  Pressing CST displays the (first six) flags of all 52
  19. countries in the menu bar.  Pressing a number followed by a flag puts
  20. the quantity and denomination in level one.  Pressing left-shift
  21. (orange) and a different flag will convert to the correct quantity and
  22. denomination of the new country.  For example, pressing 3 and the
  23. Australian flag (CST B) puts 3_$A on level one.  Pressing left-shift
  24. (orange) and the Canadian flag (NXT B) converts it to 2.69_Can$ in
  25. level one.
  26.        Amounts may be added no matter what currency each amount is, with
  27. automatic conversion to whatever currency is in level one.  For
  28. instance, 3_$A in level two added to 3_Can$ in level one result in
  29. 5.69_Can$ in level one.
  30.  
  31. Technical Details
  32.        The money directory contains the variable CST (2945.5 bytes) and
  33. 52 currency variables (312 bytes).  CST is a list of 52 items, each
  34. item being a list of the form { GROB 21x8 '1_$A' }.  The GROB is the
  35. flag graphic and the '1_$A' is the currency.  The corresponding
  36. variable in this case is '$A', which has a value of 0.785_$.  All the
  37. currency variables are defined in terms of US$ (1_$).
  38.        The US dollar is (arbitrarily) defined as 1_mol since this built-
  39. in basic SI unit is one of quantity and therefore less unrelated to
  40. currency than any other basic SI unit.  By defining currency as a
  41. built-in unit conversions are handled automatically by the machine
  42. (fast, accurately and simply) just like built-in units.  UBASE() on any
  43. amount reduces it to moles, but the result can be converted back into
  44. units of currency with the regular currency conversions on CST.
  45.        A disadvantage is that it is as trivial to generate multiples,
  46. divisions and powers of currency units (alone and in combinations). 
  47. 10_$^2 is meaningless but ( 10_$ / 2_Can$ ) 5_$/Can$ can be reduced
  48. using UBASE() to 5.7182, the amount of Can$ in 5 US$.
  49.        The 52 countries, currencies and currency symbols are listed as
  50. comments at the end of the directory listing below.  Some currency
  51. symbols conflict with built-in units and so alternatives were chosen;
  52. these are listed in the table.
  53.        There is an additional directory 'Flags' (2472 bytes) which
  54. contains the 52 flag GROBs named by country.  It also contains a small
  55. program 'Grab' which grabs the top left 21x8 pixels of the current PICT
  56. to a GROB in level 1.  I used this to draw and save all the flags for
  57. the menus.  This whole subdirectory is not necessary for the operation
  58. of the currency conversion key assignment and can be deleted (to save
  59. >2472 bytes).  It is handy for editing  nd keeping copies of the flags.
  60.        Adding new currencies is simply a matter of adding a new two part
  61. list to the CST list, and also storing a corresponding variable with
  62. the correct value defined in dollars (or any other valid denomination). 
  63. If you actually use this converter you'll probably want to
  64. (drastically) reduce the number of conversions available.  Simply
  65. remove each two part list from the CST list, and the corresponding
  66. variable.
  67.        There is no on-line help regarding what country any currency or
  68. flag belongs to.  Refer to the table.  By tagging the GROBs in the CST
  69. list with the country name, or just replacing the GROB with a string
  70. for the country, the country name appears in the menu instead of the
  71. flag.  For practical use this might be more expedient.
  72.        I discovered these two methods in trying to tag the GROB for
  73. documentation purposes, and using a variable to reference the GROB
  74. since it would be simpler to edit a GROB by itself rather than the
  75. ungainly CST variable.  Unfortunately, those names showed up in the
  76. menus instead of the graphic.
  77.        I was unable to find pictures of flags for Bahrain, Jordan,
  78. Kuwait, and Taiwan, so I have substituted a `test-pattern'.  Feel
  79. free to generate these, and improve on any other of the graphics.
  80.        The countries represented are mostly those that are listed daily
  81. in the (Foreign) Exchange Rates column in the Wall Street Journal.  Use
  82. this to keep the exchange rates current.  I think I'll try writing a
  83. program next.  smithj@jacobs.cs.orst.edu <Jeremy |-) Smith> 9/9/91
  84.  
  85. # 526Ch
  86. 7034.5
  87. END_DOC
  88.  
  89. BYTES: #526Ch 7037.5
  90.  
  91. BEGIN_RPL currency
  92. %%HP: T(3)A(D)F(.);
  93. DIR
  94.   \194 '.0001003_$'
  95.   $A '.785_$'
  96.   Sch '.0813_$'
  97.   BD '2.6525_$'
  98.   BF '.02781_$'
  99.   Cz$ '.00269_$'
  100.   \163 '1.681_$'
  101.   Can$ '.8744_$'
  102.   Ch$ '.002929_$'
  103.   Y '.187017_$'
  104.   Col$ '.001848_$'
  105.   DKr '.1483_$'
  106.   S\180 '.000966_$'
  107.   Fmk '.23498_$'
  108.   FF '.16858_$'
  109.   DM '.5724_$'
  110.   \208r '.005181_$'
  111.   HK$ '.12879_$'
  112.   Re '.03857_$'
  113.   Rp '.0005097_$'
  114.   \163Ir '1.5295_$'
  115.   I\163 '.4037_$'
  116.   L '.0007666_$'
  117.   \165 '.00731_$'
  118.   Doubloon '1.05_\163'
  119.   JD '1.45_$'
  120.   KD '3.4014_$'
  121.   L\163 '.00112_$'
  122.   M$ '.3594_$'
  123.   \163M '2.994_$'
  124.   Mex$ '.0003282_$'
  125.   f '.5083_$'
  126.   $NZ '.5745_$'
  127.   NKr '.1465_$'
  128.   PRe '.0406_$'
  129.   I\180 '1.2048_$'
  130.   \254 '.0381_$'
  131.   Esc '.006684_$'
  132.   SRI '.26663_$'
  133.   S$ '.58_$'
  134.   Rand '.3472_$'
  135.   w '.0013657_$'
  136.   Pta '.009187_$'
  137.   SKr '.1578_$'
  138.   SwF '.6566_$'
  139.   T$ '.037439_$'
  140.   Bht '.0389_$'
  141.   \163T '.0002176_$'
  142.   \208h '.2723_$'
  143.   $ '1_mol'
  144.   Ur$ '.000471_$'
  145.   B '.01709_$'
  146.   CST { {
  147. GROB 21 8 FFFFF1FFFFF1000000006000006000000000FFFFF1FFFFF1
  148. '1_\194' } {
  149. GROB 21 8 AEFFF11FF7F14EFFF11FFBE1AEFFF1FFFFB13FF7F1FFFFF1
  150. '1_$A' } {
  151. GROB 21 8 FFFFF1FFFFF1000000000000000000FFFFF1FFFFF1FFFFF1
  152. '1_Sch' } {
  153. GROB 21 8 D6BD61BD6BD06BD6B1D6BD61BD6BD06BD6B1D6BD61BD6BD0
  154. '1_BD' } {
  155. GROB 21 8 F30F30F30F30F30F30F30F30F30F30F30F30F30F30F30F30
  156. '1_BF' } {
  157. GROB 21 8 FFBFF1FF0EF1F7ECF1F3E8F1F7ECF1FF0EF1FFBFF1FFFFF1
  158. '1_Cz$' } {
  159. GROB 21 8 C86130036C000C6300CFFF30CFFF300C6300036C00C86130
  160. '1_\163' } {
  161. GROB 21 8 F00870F02870F07870F07870FCA970FCF970F02870F02870
  162. '1_Can$' } {
  163. GROB 21 8 B70000160000370000F70000555551FFFFF1555551FFFFF1
  164. '1_Ch$' } {
  165. GROB 21 8 FFFFF1BBFFF116FFF13FFFF1F7FFF1FDFFF1FFFFF1FFFFF1
  166. '1_Y' } {
  167. GROB 21 8 555551AAAAA0555551FFFFF1FFFFF1FFFFF1555551FFFFF1
  168. '1_Col$' } {
  169. GROB 21 8 F7FFF1F7FFF1F7FFF1000000F7FFF1F7FFF1F7FFF1F7FFF1
  170. '1_DKr' } {
  171. GROB 21 8 555551AAAAA0555551AAAAA0FFFFF1FFFFF1555551FFFFF1
  172. '1_S\180' } {
  173. GROB 21 8 081000081000081000FFFFF1FFFFF1081000081000081000
  174. '1_Fmk' } {
  175. GROB 21 8 F30A20F30F30F30A20F30F30F30A20F30F30F30A20F30F30
  176. '1_FF' } {
  177. GROB 21 8 FFFFF1FFFFF1FFFFF1555551FFFFF1555551AAAAA0555551
  178. '1_DM' } {
  179. GROB 21 8 BFFF70B300000CFF70B30000BFFF70000000FFFF70000000
  180. '1_\208r' } {
  181. GROB 21 8 AEFFF15DFFF1AEFFF15DFFF1AEFFF1FFFFF1FFFFF1FFFFF1
  182. '1_HK$' } {
  183. GROB 21 8 555551AAAAA000600000F00000F000006000FFFFF1FFFFF1
  184. '1_Re' } {
  185. GROB 21 8 FFFFF1FFFFF1FFFFF1FFFFF1000000000000000000000000
  186. '1_Rp' } {
  187. GROB 21 8 510600A20030510900A20600510030A20900510600A20030
  188. '1_\163Ir' } {
  189. GROB 21 8 FFFFF100400008F30000110008F300004000000000FFFFF1
  190. '1_I\163' } {
  191. GROB 21 8 F30A20F30510F30A20F30510F30A20F30510F30A20F30510
  192. '1_L' } {
  193. GROB 21 8 FFFFF110000110C00110E10110E10110C001100001FFFFF1
  194. '1_\165' } {
  195. GROB 21 8 FF1FF1FF0EF1FFAEF1FB1BF1F71DF1FFEEF1FF5FF1FFBFF1
  196. '1_Doubloon' } {
  197. GROB 21 8 0000006BD6B16BD6B10000006BD6B16BD6B10000006BD6B1
  198. '1_JD' } {
  199. GROB 21 8 9429406BD6B16BD6B19429406BD6B16BD6B19429406BD6B1
  200. '1_KD' } {
  201. GROB 21 8 FFFFF1FFFFF100800000C10000E30000C000FFFFF1FFFFF1
  202. '1_L\163' } {
  203. GROB 21 8 FFFFF17F0000BDFFF1BF00007FFFF1000000FFFFF1000000
  204. '1_M$' } {
  205. GROB 21 8 008FF1808FF1C18FF1638FF1C18FF1808FF1008FF1008FF1
  206. '1_\163M' } {
  207. GROB 21 8 FF0CF1FFCCF1FFEDF1FFDFF1FF2DF1FFCCF1FF0CF1FF0CF1
  208. '1_Mex$' } {
  209. GROB 21 8 555551AAAAA0555551000000000000FFFFF1FFFFF1FFFFF1
  210. '1_f' } {
  211. GROB 21 8 AEFFF11FF7F14EFFF11FFBE1AEFFF1FFFFF1FFF7F1FFFFF1
  212. '1_$NZ' } {
  213. GROB 21 8 F7DFF1F7DFF1001000FFFFF1001000F7DFF1F7DFF1F7DFF1
  214. '1_NKr' } {
  215. GROB 21 8 0FFFF10F7FF10FBBF10FBFF10FBFF10F7BF10FFCF10FFFF1
  216. '1_PRe' } {
  217. GROB 21 8 F70CF1F70CF1F70CF1F70CF1F70CF1F70CF1F70CF1F70CF1
  218. '1_I\180' } {
  219. GROB 21 8 EFFFF1CFFFF18FFFF16FFFF16AAAA00555518AAAA0455551
  220. '1_\254' } {
  221. GROB 21 8 51CFF1AEBFF15AAFF1AEBFF15AAFF1ACDFF151EFF1AAFFF1
  222. '1_Esc' } {
  223. GROB 21 8 FFFFF1FFFFF1F953F1F300E1F795F1FFFFF1F108F1FFFFF1
  224. '1_SRI' } {
  225. GROB 21 8 FFFFF17AEFF13FBFF13BFFF17EEFF1FFFFF1000000000000
  226. '1_S$' } {
  227. GROB 21 8 555551AAAAA00000000CF300006000000000FFFFF1FFFFF1
  228. '1_Rand' } {
  229. GROB 21 8 080400041A0008C40000E10000E10008C400041A00080400
  230. '1_w' } {
  231. GROB 21 8 FFFFF1FFFFF1FFFFF1000000000000FFFFF1FFFFF1FFFFF1
  232. '1_Pta' } {
  233. GROB 21 8 F7CFF1F7CFF1F7CFF1000000000000F7CFF1F7CFF1F7CFF1
  234. '1_SKr' } {
  235. GROB 21 8 FFFFF1FF1FF1FF1FF1F308F1F308F1FF1FF1FF1FF1FFFFF1
  236. '1_SwF' } {
  237. GROB 21 8 942940429421294290942940429421294290942940429421
  238. '1_T$' } {
  239. GROB 21 8 AAAAA0555551000000FFFFF1FFFFF1000000AAAAA0555551
  240. '1_Bht' } {
  241. GROB 21 8 FFFF30F1FF30FCFF30FCDF30FC9F30FCFF30F1FF30FFFF30
  242. '1_\163T' } {
  243. GROB 21 8 BDAAA0D655516BAAA0B50000D600006BFFF1BDFFF1DEFFF1
  244. '1_\208h' } {
  245. GROB 21 8 A200005DFFF1A200005DFFF1A20000FFFFF1000000FFFFF1
  246. '1_$' } {
  247. GROB 21 8 800000CDFFF1E30000CDFFF1800000FFFFF1000000FFFFF1
  248. '1_Ur$' } {
  249. GROB 21 8 555551AAAAA0FF0FF1F76EF1F7FEF1D6BD61BD6BD0D6BD61
  250. '1_B' } }
  251.   Flags
  252.     DIR
  253.       Argentina
  254. GROB 21 8 FFFFF1FFFFF1000000006000006000000000FFFFF1FFFFF1
  255.       Australia
  256. GROB 21 8 AEFFF11FF7F14EFFF11FFBE1AEFFF1FFFFB13FF7F1FFFFF1
  257.       Austria
  258. GROB 21 8 FFFFF1FFFFF1000000000000000000FFFFF1FFFFF1FFFFF1
  259.       Bahrain
  260. GROB 21 8 D6BD61BD6BD06BD6B1D6BD61BD6BD06BD6B1D6BD61BD6BD0
  261.       Belgium
  262. GROB 21 8 F30F30F30F30F30F30F30F30F30F30F30F30F30F30F30F30
  263.       Brazil
  264. GROB 21 8 FFBFF1FF0EF1F7ECF1F3E8F1F7ECF1FF0EF1FFBFF1FFFFF1
  265.       UK
  266. GROB 21 8 C86130036C000C6300CFFF30CFFF300C6300036C00C86130
  267.       Canada
  268. GROB 21 8 F00870F02870F07870F07870FCA970FCF970F02870F02870
  269.       Chile
  270. GROB 21 8 B70000160000370000F70000555551FFFFF1555551FFFFF1
  271.       China
  272. GROB 21 8 FFFFF1BBFFF116FFF13FFFF1F7FFF1FDFFF1FFFFF1FFFFF1
  273.       Colombia
  274. GROB 21 8 555551AAAAA0555551FFFFF1FFFFF1FFFFF1555551FFFFF1
  275.       Denmark
  276. GROB 21 8 F7FFF1F7FFF1F7FFF1000000F7FFF1F7FFF1F7FFF1F7FFF1
  277.       Ecuador
  278. GROB 21 8 555551AAAAA0555551AAAAA0FFFFF1FFFFF1555551FFFFF1
  279.       Finland
  280. GROB 21 8 081000081000081000FFFFF1FFFFF1081000081000081000
  281.       France
  282. GROB 21 8 F30A20F30F30F30A20F30F30F30A20F30F30F30A20F30F30
  283.       Germany
  284. GROB 21 8 FFFFF1FFFFF1FFFFF1555551FFFFF1555551AAAAA0555551
  285.       Greece
  286. GROB 21 8 BFFF70B300000CFF70B30000BFFF70000000FFFF70000000
  287.       HongKong
  288. GROB 21 8 AEFFF15DFFF1AEFFF15DFFF1AEFFF1FFFFF1FFFFF1FFFFF1
  289.       India
  290. GROB 21 8 555551AAAAA000600000F00000F000006000FFFFF1FFFFF1
  291.       Indonesia
  292. GROB 21 8 FFFFF1FFFFF1FFFFF1FFFFF1000000000000000000000000
  293.       Ireland
  294. GROB 21 8 510600A20030510900A20600510030A20900510600A20030
  295.       Israel
  296. GROB 21 8 FFFFF100400008F30000110008F300004000000000FFFFF1
  297.       Italy
  298. GROB 21 8 F30A20F30510F30A20F30510F30A20F30510F30A20F30510
  299.       Japan
  300. GROB 21 8 FFFFF110000110C00110E10110E10110C001100001FFFFF1
  301.       JollyRoger
  302. GROB 21 8 FF1FF1FF0EF1FFAEF1FB1BF1F71DF1FFEEF1FF5FF1FFBFF1
  303.       Jordan
  304. GROB 21 8 0000006BD6B16BD6B10000006BD6B16BD6B10000006BD6B1
  305.       Kuwait
  306. GROB 21 8 9429406BD6B16BD6B19429406BD6B16BD6B19429406BD6B1
  307.       Lebanon
  308. GROB 21 8 FFFFF1FFFFF100800000C10000E30000C000FFFFF1FFFFF1
  309.       Malaysia
  310. GROB 21 8 FFFFF17F0000BDFFF1BF00007FFFF1000000FFFFF1000000
  311.       Malta
  312. GROB 21 8 008FF1808FF1C18FF1638FF1C18FF1808FF1008FF1008FF1
  313.       Mexico
  314. GROB 21 8 FF0CF1FFCCF1FFEDF1FFDFF1FF2DF1FFCCF1FF0CF1FF0CF1
  315.       Netherlands
  316. GROB 21 8 555551AAAAA0555551000000000000FFFFF1FFFFF1FFFFF1
  317.       NZ
  318. GROB 21 8 AEFFF11FF7F14EFFF11FFBE1AEFFF1FFFFF1FFF7F1FFFFF1
  319.       Norway
  320. GROB 21 8 F7DFF1F7DFF1001000FFFFF1001000F7DFF1F7DFF1F7DFF1
  321.       Pakistan
  322. GROB 21 8 0FFFF10F7FF10FBBF10FBFF10FBFF10F7BF10FFCF10FFFF1
  323.       Peru
  324. GROB 21 8 F70CF1F70CF1F70CF1F70CF1F70CF1F70CF1F70CF1F70CF1
  325.       Philippines
  326. GROB 21 8 EFFFF1CFFFF18FFFF16FFFF16AAAA00555518AAAA0455551
  327.       Portugal
  328. GROB 21 8 51CFF1AEBFF15AAFF1AEBFF15AAFF1ACDFF151EFF1AAFFF1
  329.       SaudiArabia
  330. GROB 21 8 FFFFF1FFFFF1F953F1F300E1F795F1FFFFF1F108F1FFFFF1
  331.       Singapore
  332. GROB 21 8 FFFFF17AEFF13FBFF13BFFF17EEFF1FFFFF1000000000000
  333.       SouthAfrica
  334. GROB 21 8 555551AAAAA00000000CF300006000000000FFFFF1FFFFF1
  335.       SouthKorea
  336. GROB 21 8 080400041A0008C40000E10000E10008C400041A00080400
  337.       Spain
  338. GROB 21 8 FFFFF1FFFFF1FFFFF1000000000000FFFFF1FFFFF1FFFFF1
  339.       Sweden
  340. GROB 21 8 F7CFF1F7CFF1F7CFF1000000000000F7CFF1F7CFF1F7CFF1
  341.       Switzerland
  342. GROB 21 8 FFFFF1FF1FF1FF1FF1F308F1F308F1FF1FF1FF1FF1FFFFF1
  343.       Taiwan
  344. GROB 21 8 942940429421294290942940429421294290942940429421
  345.       Thailand
  346. GROB 21 8 AAAAA0555551000000FFFFF1FFFFF1000000AAAAA0555551
  347.       Turkey
  348. GROB 21 8 FFFF30F1FF30FCFF30FCDF30FC9F30FCFF30F1FF30FFFF30
  349.       UnitedArab
  350. GROB 21 8 BDAAA0D655516BAAA0B50000D600006BFFF1BDFFF1DEFFF1
  351.       USA
  352. GROB 21 8 A200005DFFF1A200005DFFF1A20000FFFFF1000000FFFFF1
  353.       Uruguay
  354. GROB 21 8 800000CDFFF1E30000CDFFF1800000FFFFF1000000FFFFF1
  355.       Venezuela
  356. GROB 21 8 555551AAAAA0FF0FF1F76EF1F7FEF1D6BD61BD6BD0D6BD61
  357.       Grab
  358.         \<< PICT RCL
  359. { # 0h # 0h } {
  360. # 14h # 7h } SUB
  361.         \>>
  362.     END
  363. END
  364. @     Country     Currency    Symbol       Symbol used on 48
  365. @     Argentina   Austral     -^HA          ^^HA see note 1
  366. @     Australia   Dollar      $A
  367. @     Austria     Schilling   Sch
  368. @     Bahrain     Dinar       BD
  369. @     Belgium     Franc       BF
  370. @     Brazil      Cruzeiro    Cz$
  371. @     UK          Pound       ^\     see note 2
  372. @     Canada      Dollar      Can$
  373. @     Chile       Peso        Ch$
  374. @     China       Renminbi    Y
  375. @     Colombia    Peso        Col$
  376. @     Denmark     Krone       DKr
  377. @     Ecuador     Sucre       S/    S'     see note 3
  378. @     Finland     Markka      Fmk
  379. @     France      Franc       F     FF     see note 4
  380. @     Germany     Mark        DM
  381. @     Greece      Drachma     Dr    -^HDr   see note 5
  382. @     HongKong    Dollar      HK$
  383. @     India       Rupee       Re
  384. @     Indonesia   Rupiah      Rp
  385. @     Ireland     Punt        ^\Ir
  386. @     Israel      Shekel      I^\
  387. @     Italy       Lira        L
  388. @     Japan       Yen         ^]     see note 6
  389. @     JollyRoger  Doubloon    Doubloon
  390. @     Jordan      Dinar       JD
  391. @     Kuwait      Dinar       KD
  392. @     Lebanon     Pound       L^\
  393. @     Malaysia    Ringgit     M$
  394. @     Malta       Lira        ^\M
  395. @     Mexico      Peso        Mex$
  396. @     Netherlands Guilder     f
  397. @     NZ          Dollar      $NZ
  398. @     Norway      Krone       NKr
  399. @     Pakistan    Rupee       PRe
  400. @     Peru        New Sol     I/    I'     see note 3
  401. @     Philippines Peso        -P   P      see note 7
  402. @     Portugal    Escudo      Esc
  403. @     SaudiArabia Riyal       SRI
  404. @     Singapore   Dollar      S$
  405. @     SouthAfrica Rand        R     Rand   see note 8
  406. @     SouthKorea  Won         W     w      see note 9
  407. @     Spain       Peseta      Pta
  408. @     Sweden      Krona       SKr
  409. @     Switzerland Franc       SwF
  410. @     Taiwan      Dollar      T$
  411. @     Thailand    Baht        Bht
  412. @     Turkey      Lira        ^\T
  413. @     UnitedArab  Dirham      Dh    -Dh see note 5
  414. @     USA         Dollar      $
  415. @     Uruguay     New Peso    Ur$
  416. @     Venezuela   Bolivar     B
  417. @
  418. @     1.    The symbol for Austral is `A' with a bar through it.  I tried using
  419. @           `A' but the 48 wouldn't take it so I used `^^HA' with a circumflex
  420. @           on it (#194d).
  421. @
  422. @     2.    `^\' is the symbol for Pound Sterling (#163d), a crossed Latin `L'.
  423. @
  424. @     3.    The symbols for Sucre and the Peruvian New Sol are `S/' and `I/',
  425. @           respectively.  Since you can't use `/' (division symbol) in a
  426. @           variable name I replaced it with `'' (#180d).
  427. @
  428. @     4.    The 48 wouldn't take `F' so I used `FF'.
  429. @
  430. @     5.    The symbol for Dirham is `Dh', and Drachma is `Dr'.  I tried using
  431. @           `Dh' and `Dr', respectively, but the 48 wouldn't take them so I
  432. @           used `-^HDh' and `-^HDr', a crossed `D' (#208d) followed by `h' and
  433. @           `r', respectively.
  434. @
  435. @     6.    `^]' is the symbol for Yen (#165d), a `Y' impaled with a `='.
  436. @
  437. @     7.    The symbol for the Philippine Peso is a `P' with a bar through it. 
  438. @           The 48 wouldn't take P so I used the uppercase Thorn (#254d).
  439. @
  440. @     8.    The 48 wouldn't take an `R' so I spelled out Rand instead.
  441. @
  442. @     9.    The 48 wouldn't take a capital `W' so I put in a small one.
  443.  
  444. END_RPL
  445.